unit ufTestPopStackToPage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, uiWizard;

type
  TTestPopStackToPage = class(TForm,IWizardPage)
    btnTest: TButton;
    lbl1: TLabel;
    procedure btnTestClick(Sender: TObject);
  private
    { Private declarations }
    fWizMgr : IWizardManager;
  public
    procedure SetWizardManager(Mgr: IWizardManager);
    { Public declarations }

  end;

var
  TestPopStackToPage: TTestPopStackToPage;

implementation

{$R *.dfm}

procedure TTestPopStackToPage.btnTestClick(Sender: TObject);
begin
  fWizMgr.PopStackToPage('TSampleWizardPage');
end;

procedure TTestPopStackToPage.SetWizardManager(Mgr: IWizardManager);
begin
  fWizMgr := Mgr;
end;

initialization
  RegisterClass(TTestPopStackToPage);

end.
